inst/solutions/chapter3/exercise 16 solutions/ui.R

In jr-packages/jrShiny: R Shiny Exercises

library("shiny")
library("jrShiny")
library("ggplot2")
library("dplyr")
fluidPage(
  titlePanel("I love flowers"), #title
  sidebarLayout(
    sidebarPanel(
      selectInput("flower_choice", "Choose your flower",
                  choices = unique(iris$Species))
      ),
    mainPanel(plotOutput("iris_plot"))
  )
)